unit uFrmDataGrid_Paged_Instance;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uFrmDataGrid_Paged, Menus, ActnList, DB, DBClient, RzSplit,
  RzStatus, Grids, DBGridEh, StdCtrls, RzPanel, RzButton, ExtCtrls;

type
  TFrmDataGrid_Paged_Instance = class(TFrmDataGrid_Paged)
  protected
    procedure init;override;
  end;

var
  FrmDataGrid_Paged_Instance: TFrmDataGrid_Paged_Instance;

implementation

uses uFhe_const;

{$R *.dfm}

{ TFrmDataGrid_Paged1 }

procedure TFrmDataGrid_Paged_Instance.init;
begin
  FPrimaryKeyField := ConfigBusinessInfo[bn...].PrimaryKeyFieldName;
  inherited;
end;

end.
 